home *** CD-ROM | disk | FTP | other *** search
- .title K11STD overlay for SET command prompting and parsing
- .ident /2.37/
-
- ; 23-Oct-85 09:44:20 BDN Creation, removed from K11COM
- ;
- ; Copyright (C) 1985 Change Software, Inc.
- ;
- ; Place the main command list in an overlay
- ; Call LOACMD to get the overlay loaded and
- ; return the command list address in r0. Also
- ; do the same thing for REMOTE commands via a
- ; call to LOAREM.
- ; If it should happen that this should cause
- ; a problem due to overlays overwritting this
- ; routine then simply put this into the root.
-
-
-
-
- .if ndf, K11INC
- .ift
- .include /IN:K11MAC.MAC/
- .include /IN:K11CDF.MAC/
- .endc
-
- .iif ndf, k11inc, .error ; INCLUDE missing for K11MAC.MAC
-
-
-
-
- .psect $code
-
- loaset::mov #setcmd ,r0
- return
-
-
- $cmglob = 1
-
- command setcmd ,ATTRIBUTES,3 ,set$at,<On or Off ? >,string
- command setcmd ,BAUD ,3 ,set$sp,<Speed for remote link ? >,decnum
- command setcmd ,BINARY-TYPE,3 ,set$bi,<Binary file type ? >,string
- command setcmd ,BINARY_TYPE,3 ,set$bi,<Binary file type ? >,string
- command setcmd ,BLOCK-CHECK-TYPE,3,set$bl,<Type ? >,string
- command setcmd ,BLOCK_CHECK_TYPE,3,set$bl,<Type ? >,string
- command setcmd ,CONSOLE,3 ,set$co,<7 or 8 bit ? >,string
- command setcmd ,DEBUG ,3 ,set$de,<What: >,string
- command setcmd ,DEFAULT,3 ,set$df,<Directory ? >,string
- command setcmd ,DELAY ,3 ,set$dl,<Seconds to wait ? >,decnum
- command setcmd ,DIAL ,3 ,set$di,<Option: >,string
- command setcmd ,DIRECTORY,3 ,set$df,<Directory ? >,string
- command setcmd ,DTR ,3 ,set$dt
- command setcmd ,DUPLEX ,3 ,set$du,<Half or Full ? >,string
- command setcmd ,END-OF-LINE,3 ,set$eo,<Octal value ? >,octnum
- command setcmd ,END_OF_LINE,3 ,set$eo,<Octal value ? >,octnum
- command setcmd ,EOF ,3 ,set$ef,<Exit or NoExit ? >,string
- command setcmd ,ESCAPE ,3 ,set$es,<Octal value ? >,octnum
- command setcmd ,FILETYPE,3 ,set$fi,<Binary or Ascii ? >,string
- command setcmd ,FILE_TYPE,3 ,set$fi,<Binary or Ascii ? >,string
- command setcmd ,FILE-TYPE,3 ,set$fi,<Binary or Ascii ? >,string
- command setcmd ,HANDSHAKE,3 ,set$ha,<Type ? >,string
- command setcmd ,HAND_SHAKE,3 ,set$ha,<Type ? >,string
- command setcmd ,HAND-SHAKE,3 ,set$ha,<Type ? >,string
- command setcmd ,HOME ,3 ,set$ho
- command setcmd ,IBM ,3 ,set$ib,<ON or OFF ? >,string
- command setcmd ,LINE ,3 ,set$li,<Device name ? >,string
- command setcmd ,LOCAL ,3 ,set$lc,<Local echo ON or OFF ? >,string
- command setcmd ,LOGFILE,3 ,set$lo,<Logfile name ? >,string
- command setcmd ,LOG_FILE,3 ,set$lo,<Logfile name ? >,string
- command setcmd ,LOG-FILE,3 ,set$lo,<Logfile name ? >,string
- command setcmd ,LOGOUT ,3 ,set$ls,<Logout string ? >,string
- command setcmd ,LONG_PACKETS,3 ,set$lp,<Long Packets ON or OFF ? >,string
- command setcmd ,MODEM-TYPE,3 ,set$mo,<Modem type ? >,string
- command setcmd ,MODEM_TYPE,3 ,set$mo,<Modem type ? >,string
- command setcmd ,NOATTRIBUTES,4 ,st$nat
- command setcmd ,NODEBUG,4 ,sd$off
- command setcmd ,NOLONG_PACKETS,4 ,st$nlp
- command setcmd ,NOQUIET,3 ,set$nq
- command setcmd ,NOUPDATE,4 ,set$nu
- command setcmd ,PARITY ,3 ,set$pa,<Odd/Even or None ? >,string
- command setcmd ,PAUSE ,3 ,set$ps,<Seconds to delay packets ? >,decnum
- command setcmd ,PHONE ,2 ,set$ph,<Option: >,string
- command setcmd ,POS ,2 ,set$po,<Option: >,string
- command setcmd ,PROMPT ,3 ,set$pr,<Kermit Prompt ? >,string
- command setcmd ,QUIET ,3 ,set$qu
- command setcmd ,RANDOM ,3 ,set$ra,<On or Off ? >,string
- command setcmd ,RECEIVE,3 ,set$rc,<Option: >,string
- command setcmd ,RECORD__FORMAT,4 ,set$rf,<Stream or Variable ? >,string
- command setcmd ,RECORD-FORMAT,4 ,set$rf,<Stream or Variable ? >,string
- command setcmd ,REPEAT ,3 ,set$rp,<To: >,string
- command setcmd ,REPEAT_CHAR,3 ,set$rp,<To: >,string
- command setcmd ,REPEAT-CHAR,3 ,set$rp,<To: >,string
- command setcmd ,RETRY ,3 ,set$re,<NAK retry count ? >,decnum
- command setcmd ,RSX ,2 ,set$rx,<Option: >,string
- command setcmd ,RT11 ,2 ,set$rt,<Option: >,string
- command setcmd ,SEED ,3 ,set$se,<Random seed ? >,decnum
- command setcmd ,SEND ,3 ,set$sn,<Option: >,string
- command setcmd ,SPEED ,3 ,set$sp,<Speed for link ? >,decnum
- command setcmd ,SERVER ,3 ,set$sv,<Option: >,string
- command setcmd ,START_OF_PACKET,3 ,set$so,<Octal (1-36) ? >,octnum
- command setcmd ,START-OF-PACKET,3 ,set$so,<Octal (1-36) ? >,octnum
- command setcmd ,TERMINAL,3 ,set$tt,<Type ? >,string
- command setcmd ,TIMEOUT,3 ,set$ti,<Timeout ? >,decnum
- command setcmd ,TIME-OUT,3 ,set$ti,<Timeout ? >,decnum
- command setcmd ,TIME_OUT,3 ,set$ti,<Timeout ? >,decnum
- command setcmd ,WINDOW ,2 ,set$wi
- command setcmd ,UPDATE ,2 ,set$up,<Update interval ? >,decnum
- command setcmd
-
- .end
-